home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zf.d64 / val_str.lst < prev    next >
File List  |  2007-03-01  |  438b  |  21 lines
  1. 9010 //  DELETE "@:VAL/STR.LST"
  2. 9020 //  LIST   "VAL/STR.LST"
  3. 9030 //
  4. 9040 FUNC VAL(X$) CLOSED
  5. 9050 OPEN FILE 100,"#",UNIT 8,2,READ
  6. 9060 PRINT FILE 100: X$
  7. 9070 PASS "B-P:2,1"
  8. 9080 INPUT FILE 100: Y
  9. 9090 CLOSE FILE 100
  10. 9100 RETURN Y
  11. 9110 ENDFUNC VAL
  12. 9120 //
  13. 9130 PROC STR(X,REF Y$) CLOSED
  14. 9140 OPEN FILE 100,"#",UNIT 8,2,READ
  15. 9150 PRINT FILE 100: X
  16. 9160 PASS "B-P:2,1"
  17. 9170 INPUT FILE 100: Y$
  18. 9180 CLOSE FILE 100
  19. 9190 ENDPROC STR
  20. 9200 //
  21.